home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / mcsecure.zip / _REGKEY.FRM < prev    next >
Text File  |  1996-05-16  |  5KB  |  176 lines
  1. VERSION 4.00
  2. Begin VB.Form frmRegistrationKey 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Registration Key"
  5.    ClientHeight    =   4605
  6.    ClientLeft      =   390
  7.    ClientTop       =   465
  8.    ClientWidth     =   6675
  9.    Height          =   5010
  10.    Left            =   330
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   4605
  15.    ScaleWidth      =   6675
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   120
  18.    Width           =   6795
  19.    Begin VB.TextBox Text2 
  20.       Height          =   285
  21.       Left            =   1890
  22.       MaxLength       =   9
  23.       TabIndex        =   5
  24.       Top             =   3870
  25.       Width           =   1455
  26.    End
  27.    Begin VB.TextBox Text1 
  28.       Height          =   285
  29.       Left            =   1890
  30.       TabIndex        =   3
  31.       Top             =   3510
  32.       Width           =   4695
  33.    End
  34.    Begin VB.ListBox List1 
  35.       Height          =   2955
  36.       Left            =   90
  37.       TabIndex        =   1
  38.       Top             =   360
  39.       Width           =   6495
  40.    End
  41.    Begin VB.Label Label5 
  42.       Caption         =   "Enter a &key"
  43.       Height          =   195
  44.       Left            =   90
  45.       TabIndex        =   4
  46.       Top             =   3900
  47.       Width           =   1725
  48.    End
  49.    Begin VB.Label Label3 
  50.       Caption         =   "Hash coding is"
  51.       Height          =   195
  52.       Left            =   90
  53.       TabIndex        =   6
  54.       Top             =   4260
  55.       Width           =   1725
  56.    End
  57.    Begin VB.Label Label4 
  58.       Appearance      =   0  'Flat
  59.       BackColor       =   &H80000005&
  60.       BorderStyle     =   1  'Fixed Single
  61.       ForeColor       =   &H80000008&
  62.       Height          =   285
  63.       Left            =   1890
  64.       TabIndex        =   7
  65.       Top             =   4230
  66.       Width           =   4695
  67.    End
  68.    Begin VB.Label Label2 
  69.       Caption         =   "Enter a &string (10 chars)"
  70.       Height          =   195
  71.       Left            =   90
  72.       TabIndex        =   2
  73.       Top             =   3540
  74.       Width           =   1725
  75.    End
  76.    Begin VB.Line Line1 
  77.       BorderColor     =   &H00FFFFFF&
  78.       BorderStyle     =   6  'Inside Solid
  79.       BorderWidth     =   2
  80.       X1              =   0
  81.       X2              =   6660
  82.       Y1              =   3420
  83.       Y2              =   3420
  84.    End
  85.    Begin VB.Label Label1 
  86.       Caption         =   "Registration Key Samples"
  87.       Height          =   195
  88.       Left            =   90
  89.       TabIndex        =   0
  90.       Top             =   90
  91.       Width           =   6495
  92.    End
  93. End
  94. Attribute VB_Name = "frmRegistrationKey"
  95. Attribute VB_Creatable = False
  96. Attribute VB_Exposed = False
  97. Option Explicit
  98.  
  99. Private Sub Form_Load()
  100.  
  101.    Dim i          As Integer
  102.    Dim Tmp1       As String
  103.    Dim Tmp2       As String
  104.    Dim Tmp3       As String
  105.    Dim Data       As String
  106.    Dim Value      As Long
  107.    
  108.    Tmp1 = "Key of '"
  109.    Tmp2 = "' with '"
  110.    Tmp3 = "' is '"
  111.    
  112.    List1.Clear
  113.    
  114.    Data = "1234567890"
  115.    Value = 1234567
  116.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  117.    Data = "12345678901"
  118.    Value = 123456
  119.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  120.    Data = "123456789012"
  121.    Value = 12345
  122.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  123.    Data = "1234567890123"
  124.    Value = 1234
  125.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  126.    Data = "12345678901234"
  127.    Value = 123
  128.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  129.    Data = "123456789012345"
  130.    Value = 12
  131.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  132.    Data = "1234567890123455"
  133.    Value = 1
  134.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  135.    
  136.    List1.AddItem ""
  137.    
  138.    Data = "ABCDEFGHIJKLMNOP"
  139.    Value = 1
  140.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  141.    Data = "ABCDEFGHIJKLMNO"
  142.    Value = 12
  143.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  144.    Data = "ABCDEFGHIJKLMN"
  145.    Value = 123
  146.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  147.    Data = "ABCDEFGHIJKLM"
  148.    Value = 1234
  149.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  150.    Data = "ABCDEFGHIJKL"
  151.    Value = 12345
  152.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  153.    Data = "ABCDEFGHIJK"
  154.    Value = 123456
  155.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  156.    Data = "ABCDEFGHIJ"
  157.    Value = 1234567
  158.    List1.AddItem Tmp1 + Data + Tmp2 & Value & Tmp3 & cRegistrationKey(Data, Value) & "'"
  159.  
  160.    Text1.Text = "mc security"
  161.    Text2.Text = "1234567"
  162.    
  163. End Sub
  164.  
  165.  
  166. Private Sub Text1_Change()
  167.    Label4.Caption = cRegistrationKey(Text1.Text, Val(Text2.Text))
  168. End Sub
  169.  
  170.  
  171. Private Sub Text2_Change()
  172.    Label4.Caption = cRegistrationKey(Text1.Text, Val(Text2.Text))
  173. End Sub
  174.  
  175.  
  176.